home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
ada
/
c01oop.zip
/
ADAWKBK
/
SOL1-5.ADA
< prev
next >
Wrap
Text File
|
1992-08-25
|
557b
|
31 lines
-- Problem 1.5
-- by Rick Conn
with Text_IO;
procedure Reserved_Demo is
package Int_IO is new Text_IO.Integer_IO (Integer);
begin
for I in 1 .. 15 loop
if I < 6 then
Int_IO.Put (I, 2);
elsif I = 6 then
Int_IO.Put (I, 2);
Text_IO.New_Line;
elsif I < 10 then
Int_IO.Put (I, 2);
elsif I = 10 then
Int_IO.Put (I, 3);
Text_IO.New_Line;
else
Text_IO.Put ("Too Big: ");
Int_IO.Put (I, 3);
Text_IO.New_Line;
end if;
end loop;
end Reserved_Demo;